home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_exmh.idb / usr / freeware / lib / exmh-2.5 / xns.tcl.z / xns.tcl
Text File  |  2002-07-08  |  950b  |  31 lines
  1. # 
  2. # xns.tcl
  3. #
  4. # Thin layer over xnsgetmail routine that fetching messages from
  5. # an XNS mail server to your UNIX spool file.  An expect script is
  6. # used to check if you need to login or not..
  7. #
  8. # Copyright (c) 1994 Xerox Corporation.
  9. # Use and copying of this software and preparation of derivative works based
  10. # upon this software are permitted. Any distribution of this software or
  11. # derivative works must comply with all applicable United States export
  12. # control laws. This software is made available AS IS, and Xerox Corporation
  13. # makes no warranty about the software, its performance or its conformity to
  14. # any specification.
  15.  
  16. proc Xns_GetMail {} {
  17.     global exmh
  18.     Exmh_Status "xnsgetmail -k"
  19.     if [catch {exec $exmh(expect) -f $exmh(library)/xnsgetmail.exp} err] {
  20.     if [regexp {XNS username} $err] {
  21.         Exmh_Status "Please XNS login"
  22.         exec xterm -e xnslogin
  23.         after 1000 Xns_GetMail
  24.     } else {
  25.         Exmh_Status $err
  26.     }
  27.     }
  28.  
  29. }
  30.  
  31.